ieee_is_negative Interface

public interface ieee_is_negative

Module Procedures

private pure function rc_ieee_is_negative(x) result(rst)

Overloads ieee_is_negative to test the sign of every column value. Uses IEEE sign classification, including negative zero, rather than x < 0.

Arguments

Type IntentOptional Attributes Name
class(real_column), intent(in) :: x

The real_column to inspect, without copying its array.

Return Value logical

True if all values satisfy intrinsic ieee_is_negative, including an allocated empty array; false for unallocated storage.